/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_07 / wimpprocs

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3d f4 20 20 20 | 3e 20 24 2e 52 65 73 6f |...=.   |> $.Reso|
|00000010| 75 72 63 65 73 2e 57 69 | 6d 70 50 72 6f 63 73 20 |urces.Wi|mpProcs |
|00000020| 20 20 20 3a 20 4c 69 62 | 72 61 72 79 20 57 49 4d |   : Lib|rary WIM|
|00000030| 50 20 70 72 6f 63 65 64 | 75 72 65 73 2e 0d 00 14 |P proced|ures....|
|00000040| 04 0d 00 1e 0c f4 20 a9 | 20 52 2e 41 2e 0d 00 28 |...... .| R.A...(|
|00000050| 04 0d 00 32 0a dd f2 76 | 61 72 73 0d 00 3c 0e 72 |...2...v|ars..<.r|
|00000060| 75 6e 66 69 6c 65 25 3d | a3 0d 00 46 0e 42 79 74 |unfile%=|...F.Byt|
|00000070| 65 20 20 20 20 3d 36 0d | 00 50 0e 46 69 6c 65 20 |e    =6.|.P.File |
|00000080| 20 20 20 3d 38 0d 00 5a | 10 4d 75 6c 74 69 70 6c |   =8..Z|.Multipl|
|00000090| 65 3d 26 30 43 0d 00 64 | 10 52 65 61 64 50 61 6c |e=&0C..d|.ReadPal|
|000000a0| 20 3d 26 32 46 0d 00 6e | 1d 46 6f 6e 74 20 20 20 | =&2F..n|.Font   |
|000000b0| 20 3d 28 31 3c 3c 31 38 | 29 20 2b 20 28 32 3c 3c | =(1<<18|) + (2<<|
|000000c0| 36 29 0d 00 78 13 57 69 | 64 74 68 20 20 20 3d 46 |6)..x.Wi|dth   =F|
|000000d0| 6f 6e 74 2b 31 0d 00 82 | 1d 57 69 6d 70 20 20 20 |ont+1...|.Wimp   |
|000000e0| 20 3d 28 31 3c 3c 31 38 | 29 20 2b 20 28 33 3c 3c | =(1<<18|) + (3<<|
|000000f0| 36 29 0d 00 8c 13 49 6e | 69 74 20 20 20 20 3d 57 |6)....In|it    =W|
|00000100| 69 6d 70 2b 30 0d 00 96 | 13 43 72 65 61 74 65 57 |imp+0...|.CreateW|
|00000110| 20 3d 57 69 6d 70 2b 31 | 0d 00 a0 13 43 72 65 61 | =Wimp+1|....Crea|
|00000120| 74 65 49 20 3d 57 69 6d | 70 2b 32 0d 00 aa 13 44 |teI =Wim|p+2....D|
|00000130| 65 6c 65 74 65 57 20 3d | 57 69 6d 70 2b 33 0d 00 |eleteW =|Wimp+3..|
|00000140| b4 13 44 65 6c 65 74 65 | 49 20 3d 57 69 6d 70 2b |..Delete|I =Wimp+|
|00000150| 34 0d 00 be 13 4f 70 65 | 6e 57 20 20 20 3d 57 69 |4....Ope|nW   =Wi|
|00000160| 6d 70 2b 35 0d 00 c8 13 | 43 6c 6f 73 65 57 20 20 |mp+5....|CloseW  |
|00000170| 3d 57 69 6d 70 2b 36 0d | 00 d2 13 50 6f 6c 6c 20 |=Wimp+6.|...Poll |
|00000180| 20 20 20 3d 57 69 6d 70 | 2b 37 0d 00 dc 13 52 65 |   =Wimp|+7....Re|
|00000190| 64 72 61 77 57 20 3d 57 | 69 6d 70 2b 38 0d 00 e6 |drawW =W|imp+8...|
|000001a0| 13 55 70 64 61 74 65 57 | 20 3d 57 69 6d 70 2b 39 |.UpdateW| =Wimp+9|
|000001b0| 0d 00 f0 14 47 65 74 52 | 20 20 20 20 3d 57 69 6d |....GetR|    =Wim|
|000001c0| 70 2b 31 30 0d 00 fa 14 | 47 65 74 57 20 20 20 20 |p+10....|GetW    |
|000001d0| 3d 57 69 6d 70 2b 31 31 | 0d 01 04 14 47 65 74 57 |=Wimp+11|....GetW|
|000001e0| 49 20 20 20 3d 57 69 6d | 70 2b 31 32 0d 01 0e 14 |I   =Wim|p+12....|
|000001f0| 53 65 74 49 20 20 20 20 | 3d 57 69 6d 70 2b 31 33 |SetI    |=Wimp+13|
|00000200| 0d 01 18 14 47 65 74 49 | 20 20 20 20 3d 57 69 6d |....GetI|    =Wim|
|00000210| 70 2b 31 34 0d 01 22 14 | 47 65 74 50 20 20 20 20 |p+14..".|GetP    |
|00000220| 3d 57 69 6d 70 2b 31 35 | 0d 01 2c 14 44 72 61 67 |=Wimp+15|..,.Drag|
|00000230| 20 20 20 20 3d 57 69 6d | 70 2b 31 36 0d 01 36 14 |    =Wim|p+16..6.|
|00000240| 53 63 72 65 65 6e 20 20 | 3d 57 69 6d 70 2b 31 37 |Screen  |=Wimp+17|
|00000250| 0d 01 40 14 53 65 74 43 | 61 72 65 74 3d 57 69 6d |..@.SetC|aret=Wim|
|00000260| 70 2b 31 38 0d 01 4a 14 | 47 65 74 43 61 72 65 74 |p+18..J.|GetCaret|
|00000270| 3d 57 69 6d 70 2b 31 39 | 0d 01 54 14 43 72 65 61 |=Wimp+19|..T.Crea|
|00000280| 74 65 4d 20 3d 57 69 6d | 70 2b 32 30 0d 01 5e 14 |teM =Wim|p+20..^.|
|00000290| 44 65 63 6f 64 65 4d 20 | 3d 57 69 6d 70 2b 32 31 |DecodeM |=Wimp+21|
|000002a0| 0d 01 68 14 57 68 69 63 | 68 49 20 20 3d 57 69 6d |..h.Whic|hI  =Wim|
|000002b0| 70 2b 32 32 0d 01 72 15 | 53 65 74 45 78 74 65 6e |p+22..r.|SetExten|
|000002c0| 74 3d 57 69 6d 70 2b 32 | 33 0d 01 7c 0b 6c 65 66 |t=Wimp+2|3..|.lef|
|000002d0| 74 25 3d 30 0d 01 86 0e | 63 65 6e 74 72 65 64 25 |t%=0....|centred%|
|000002e0| 3d 31 0d 01 90 0c 72 69 | 67 68 74 25 3d 32 0d 01 |=1....ri|ght%=2..|
|000002f0| 9a 11 66 6f 72 6d 61 74 | 25 3d 6c 65 66 74 25 0d |..format|%=left%.|
|00000300| 01 a4 0e 62 65 68 69 6e | 64 25 3d 2d 31 0d 01 ae |...behin|d%=-1...|
|00000310| 0d 64 6f 74 74 65 64 25 | 3d a3 0d 01 b8 05 e1 0d |.dotted%|=.......|
|00000320| 01 c2 04 0d 01 cc 1e dd | f2 73 79 73 5f 63 6c 6f |........|.sys_clo|
|00000330| 73 65 77 69 6e 64 6f 77 | 28 68 61 6e 64 6c 65 25 |sewindow|(handle%|
|00000340| 29 0d 01 d6 0e 21 62 3d | 68 61 6e 64 6c 65 25 0d |)....!b=|handle%.|
|00000350| 01 e0 11 c8 99 20 43 6c | 6f 73 65 57 2c 30 2c 62 |..... Cl|oseW,0,b|
|00000360| 0d 01 ea 05 e1 0d 01 f4 | 04 0d 01 fe 1f dd f2 73 |........|.......s|
|00000370| 79 73 5f 64 65 6c 65 74 | 65 77 69 6e 64 6f 77 28 |ys_delet|ewindow(|
|00000380| 68 61 6e 64 6c 65 25 29 | 0d 02 08 0e 21 62 3d 68 |handle%)|....!b=h|
|00000390| 61 6e 64 6c 65 25 0d 02 | 12 12 c8 99 20 44 65 6c |andle%..|.... Del|
|000003a0| 65 74 65 57 2c 30 2c 62 | 0d 02 1c 05 e1 0d 02 26 |eteW,0,b|.......&|
|000003b0| 04 0d 02 30 53 dd a4 73 | 79 73 5f 64 65 66 69 6e |...0S..s|ys_defin|
|000003c0| 65 77 69 6e 64 6f 77 28 | 74 69 74 6c 65 24 2c 66 |ewindow(|title$,f|
|000003d0| 6c 61 67 73 25 2c 66 67 | 63 6f 6c 25 2c 62 67 63 |lags%,fg|col%,bgc|
|000003e0| 6f 6c 25 2c 6d 61 78 58 | 25 2c 6d 61 78 59 25 2c |ol%,maxX|%,maxY%,|
|000003f0| 77 61 4c 25 2c 77 61 42 | 25 2c 77 61 52 25 2c 77 |waL%,waB|%,waR%,w|
|00000400| 61 54 25 29 0d 02 3a 2a | 21 62 3d 77 61 4c 25 3a |aT%)..:*|!b=waL%:|
|00000410| 20 62 21 34 3d 77 61 42 | 25 3a 20 62 21 38 3d 77 | b!4=waB|%: b!8=w|
|00000420| 61 52 25 3a 20 62 21 31 | 32 3d 77 61 54 25 0d 02 |aR%: b!1|2=waT%..|
|00000430| 44 12 62 21 31 36 3d 30 | 3a 20 62 21 32 30 3d 30 |D.b!16=0|: b!20=0|
|00000440| 0d 02 4e 0b 62 21 32 34 | 3d 2d 31 0d 02 58 0f 62 |..N.b!24|=-1..X.b|
|00000450| 21 32 38 3d 66 6c 61 67 | 73 25 0d 02 62 24 62 3f |!28=flag|s%..b$b?|
|00000460| 33 32 3d 69 63 6f 6e 5f | 66 67 63 6f 6c 3a 20 62 |32=icon_|fgcol: b|
|00000470| 3f 33 33 3d 69 63 6f 6e | 5f 62 67 63 6f 6c 0d 02 |?33=icon|_bgcol..|
|00000480| 6c 1b 62 3f 33 34 3d 66 | 67 63 6f 6c 25 3a 62 3f |l.b?34=f|gcol%:b?|
|00000490| 33 35 3d 62 67 63 6f 6c | 25 0d 02 76 29 62 3f 33 |35=bgcol|%..v)b?3|
|000004a0| 36 3d 73 63 72 6f 6c 6c | 62 61 72 5f 62 67 63 6f |6=scroll|bar_bgco|
|000004b0| 6c 3a 20 62 3f 33 37 3d | 69 63 6f 6e 5f 62 67 63 |l: b?37=|icon_bgc|
|000004c0| 6f 6c 0d 02 80 14 62 3f | 33 38 3d 66 6f 63 75 73 |ol....b?|38=focus|
|000004d0| 5f 62 67 63 6f 6c 0d 02 | 8a 0a 62 3f 33 39 3d 30 |_bgcol..|..b?39=0|
|000004e0| 0d 02 94 17 62 21 34 30 | 3d 30 3a 20 62 21 34 34 |....b!40|=0: b!44|
|000004f0| 3d 2d 6d 61 78 59 25 0d | 02 9e 15 62 21 34 38 3d |=-maxY%.|...b!48=|
|00000500| 6d 61 78 58 25 3a 62 21 | 35 32 3d 30 0d 02 a8 0c |maxX%:b!|52=0....|
|00000510| 62 21 35 36 3d 26 32 44 | 0d 02 b2 0e 62 21 36 30 |b!56=&2D|....b!60|
|00000520| 3d 26 33 30 30 30 0d 02 | bc 1c 62 21 36 34 3d 73 |=&3000..|..b!64=s|
|00000530| 70 72 69 74 65 61 72 65 | 61 25 3a 20 62 21 36 38 |priteare|a%: b!68|
|00000540| 3d 30 0d 02 c6 17 24 28 | 62 2b 37 32 29 3d c0 74 |=0....$(|b+72)=.t|
|00000550| 69 74 6c 65 24 2c 31 31 | 29 0d 02 d0 0a 62 21 38 |itle$,11|)....b!8|
|00000560| 34 3d 30 0d 02 da 1b c8 | 99 43 72 65 61 74 65 57 |4=0.....|.CreateW|
|00000570| 2c 30 2c 62 20 b8 20 68 | 61 6e 64 6c 65 25 0d 02 |,0,b . h|andle%..|
|00000580| e4 0c 3d 68 61 6e 64 6c | 65 25 0d 02 ee 04 0d 02 |..=handl|e%......|
|00000590| f8 65 dd a4 73 79 73 5f | 64 65 66 69 6e 65 77 69 |.e..sys_|definewi|
|000005a0| 6e 64 6f 77 57 28 74 69 | 74 6c 65 30 25 2c 74 69 |ndowW(ti|tle0%,ti|
|000005b0| 74 6c 65 31 25 2c 74 69 | 74 6c 65 32 25 2c 66 6c |tle1%,ti|tle2%,fl|
|000005c0| 61 67 73 25 2c 66 67 63 | 6f 6c 25 2c 62 67 63 6f |ags%,fgc|ol%,bgco|
|000005d0| 6c 25 2c 6d 61 78 58 25 | 2c 6d 61 78 59 25 2c 77 |l%,maxX%|,maxY%,w|
|000005e0| 61 4c 25 2c 77 61 42 25 | 2c 77 61 52 25 2c 77 61 |aL%,waB%|,waR%,wa|
|000005f0| 54 25 29 0d 03 02 2a 21 | 62 3d 77 61 4c 25 3a 20 |T%)...*!|b=waL%: |
|00000600| 62 21 34 3d 77 61 42 25 | 3a 20 62 21 38 3d 77 61 |b!4=waB%|: b!8=wa|
|00000610| 52 25 3a 20 62 21 31 32 | 3d 77 61 54 25 0d 03 0c |R%: b!12|=waT%...|
|00000620| 12 62 21 31 36 3d 30 3a | 20 62 21 32 30 3d 30 0d |.b!16=0:| b!20=0.|
|00000630| 03 16 0b 62 21 32 34 3d | 2d 31 0d 03 20 0f 62 21 |...b!24=|-1.. .b!|
|00000640| 32 38 3d 66 6c 61 67 73 | 25 0d 03 2a 24 62 3f 33 |28=flags|%..*$b?3|
|00000650| 32 3d 69 63 6f 6e 5f 66 | 67 63 6f 6c 3a 20 62 3f |2=icon_f|gcol: b?|
|00000660| 33 33 3d 69 63 6f 6e 5f | 62 67 63 6f 6c 0d 03 34 |33=icon_|bgcol..4|
|00000670| 1b 62 3f 33 34 3d 66 67 | 63 6f 6c 25 3a 62 3f 33 |.b?34=fg|col%:b?3|
|00000680| 35 3d 62 67 63 6f 6c 25 | 0d 03 3e 29 62 3f 33 36 |5=bgcol%|..>)b?36|
|00000690| 3d 73 63 72 6f 6c 6c 62 | 61 72 5f 62 67 63 6f 6c |=scrollb|ar_bgcol|
|000006a0| 3a 20 62 3f 33 37 3d 69 | 63 6f 6e 5f 62 67 63 6f |: b?37=i|con_bgco|
|000006b0| 6c 0d 03 48 14 62 3f 33 | 38 3d 66 6f 63 75 73 5f |l..H.b?3|8=focus_|
|000006c0| 62 67 63 6f 6c 0d 03 52 | 0a 62 3f 33 39 3d 30 0d |bgcol..R|.b?39=0.|
|000006d0| 03 5c 17 62 21 34 30 3d | 30 3a 20 62 21 34 34 3d |.\.b!40=|0: b!44=|
|000006e0| 2d 6d 61 78 59 25 0d 03 | 66 15 62 21 34 38 3d 6d |-maxY%..|f.b!48=m|
|000006f0| 61 78 58 25 3a 62 21 35 | 32 3d 30 0d 03 70 12 62 |axX%:b!5|2=0..p.b|
|00000700| 21 35 36 3d 26 32 44 20 | 84 26 31 30 30 0d 03 7a |!56=&2D |.&100..z|
|00000710| 0e 62 21 36 30 3d 26 33 | 30 30 30 0d 03 84 1c 62 |.b!60=&3|000....b|
|00000720| 21 36 34 3d 73 70 72 69 | 74 65 61 72 65 61 25 3a |!64=spri|tearea%:|
|00000730| 20 62 21 36 38 3d 30 0d | 03 8e 1e 62 21 37 32 3d | b!68=0.|...b!72=|
|00000740| 74 69 74 6c 65 30 25 3a | 20 62 21 37 36 3d 74 69 |title0%:| b!76=ti|
|00000750| 74 6c 65 31 25 0d 03 98 | 10 62 21 38 30 3d 74 69 |tle1%...|.b!80=ti|
|00000760| 74 6c 65 32 25 0d 03 a2 | 0a 62 21 38 34 3d 30 0d |tle2%...|.b!84=0.|
|00000770| 03 ac 1b c8 99 43 72 65 | 61 74 65 57 2c 30 2c 62 |.....Cre|ateW,0,b|
|00000780| 20 b8 20 68 61 6e 64 6c | 65 25 0d 03 b6 0c 3d 68 | . handl|e%....=h|
|00000790| 61 6e 64 6c 65 25 0d 03 | c0 04 0d 03 ca 13 dd f2 |andle%..|........|
|000007a0| 67 65 74 77 28 68 61 6e | 64 6c 65 25 29 0d 03 d4 |getw(han|dle%)...|
|000007b0| 19 21 62 3d 68 61 6e 64 | 6c 65 25 3a c8 99 47 65 |.!b=hand|le%:..Ge|
|000007c0| 74 57 2c 30 2c 62 0d 03 | de 28 f2 69 6e 66 6f 28 |tW,0,b..|.(.info(|
|000007d0| 62 2b 34 29 3a 62 68 61 | 6e 64 6c 65 25 3d 62 21 |b+4):bha|ndle%=b!|
|000007e0| 32 38 3a 66 6c 61 67 73 | 25 3d 62 21 33 32 0d 03 |28:flags|%=b!32..|
|000007f0| e8 05 e1 0d 03 f2 04 0d | 03 fc 0d dd f2 69 6e 66 |........|.....inf|
|00000800| 6f 28 62 29 0d 04 06 37 | 78 30 25 3d 21 62 3a 79 |o(b)...7|x0%=!b:y|
|00000810| 30 25 3d 62 21 34 3a 78 | 31 25 3d 62 21 38 3a 79 |0%=b!4:x|1%=b!8:y|
|00000820| 31 25 3d 62 21 31 32 3a | 73 63 78 25 3d 62 21 31 |1%=b!12:|scx%=b!1|
|00000830| 36 3a 73 63 79 25 3d 62 | 21 32 30 0d 04 10 1d 62 |6:scy%=b|!20....b|
|00000840| 78 25 3d 78 30 25 2d 73 | 63 78 25 3a 62 79 25 3d |x%=x0%-s|cx%:by%=|
|00000850| 79 31 25 2d 73 63 79 25 | 0d 04 1a 05 e1 0d 04 24 |y1%-scy%|.......$|
|00000860| 04 0d 04 2e 14 dd f2 66 | 72 6f 6e 74 28 68 61 6e |.......f|ront(han|
|00000870| 64 6c 65 25 29 0d 04 38 | 11 e7 68 61 6e 64 6c 65 |dle%)..8|..handle|
|00000880| 25 3d 2d 31 8c e1 0d 04 | 42 26 f2 67 65 74 77 28 |%=-1....|B&.getw(|
|00000890| 68 61 6e 64 6c 65 25 29 | 3a 62 21 32 38 3d 2d 31 |handle%)|:b!28=-1|
|000008a0| 3a c8 99 4f 70 65 6e 57 | 2c 30 2c 62 0d 04 4c 05 |:..OpenW|,0,b..L.|
|000008b0| e1 0d 04 56 04 0d 04 60 | 48 dd f2 73 79 73 5f 64 |...V...`|H..sys_d|
|000008c0| 65 66 69 6e 65 69 63 6f | 6e 28 62 6f 78 4c 25 2c |efineico|n(boxL%,|
|000008d0| 62 6f 78 42 25 2c 62 6f | 78 52 25 2c 62 6f 78 54 |boxB%,bo|xR%,boxT|
|000008e0| 25 2c 66 6c 61 67 73 25 | 2c 66 67 63 6f 6c 25 2c |%,flags%|,fgcol%,|
|000008f0| 62 67 63 6f 6c 25 2c 64 | 61 74 61 24 29 0d 04 6a |bgcol%,d|ata$)..j|
|00000900| 4d 69 63 6f 6e 25 3d a4 | 73 79 73 5f 64 65 66 69 |Micon%=.|sys_defi|
|00000910| 6e 65 69 63 6f 6e 28 62 | 6f 78 4c 25 2c 62 6f 78 |neicon(b|oxL%,box|
|00000920| 42 25 2c 62 6f 78 52 25 | 2c 62 6f 78 54 25 2c 66 |B%,boxR%|,boxT%,f|
|00000930| 6c 61 67 73 25 2c 66 67 | 63 6f 6c 25 2c 62 67 63 |lags%,fg|col%,bgc|
|00000940| 6f 6c 25 2c 64 61 74 61 | 24 29 0d 04 74 05 e1 0d |ol%,data|$)..t...|
|00000950| 04 7e 04 0d 04 88 48 dd | a4 73 79 73 5f 64 65 66 |.~....H.|.sys_def|
|00000960| 69 6e 65 69 63 6f 6e 28 | 62 6f 78 4c 25 2c 62 6f |ineicon(|boxL%,bo|
|00000970| 78 42 25 2c 62 6f 78 52 | 25 2c 62 6f 78 54 25 2c |xB%,boxR|%,boxT%,|
|00000980| 66 6c 61 67 73 25 2c 66 | 67 63 6f 6c 25 2c 62 67 |flags%,f|gcol%,bg|
|00000990| 63 6f 6c 25 2c 64 61 74 | 61 24 29 0d 04 92 0e 21 |col%,dat|a$)....!|
|000009a0| 62 3d 68 61 6e 64 6c 65 | 25 0d 04 9c 30 62 21 34 |b=handle|%...0b!4|
|000009b0| 3d 62 6f 78 4c 25 3a 20 | 62 21 38 3d 62 6f 78 42 |=boxL%: |b!8=boxB|
|000009c0| 25 3a 20 62 21 31 32 3d | 62 6f 78 52 25 3a 20 62 |%: b!12=|boxR%: b|
|000009d0| 21 31 36 3d 62 6f 78 54 | 25 0d 04 a6 0f 62 21 32 |!16=boxT|%....b!2|
|000009e0| 30 3d 66 6c 61 67 73 25 | 0d 04 b0 22 62 3f 32 33 |0=flags%|..."b?23|
|000009f0| 3d 28 66 67 63 6f 6c 25 | 20 80 26 46 29 2b 28 62 |=(fgcol%| .&F)+(b|
|00000a00| 67 63 6f 6c 25 20 3c 3c | 34 29 0d 04 ba 11 24 28 |gcol% <<|4)....$(|
|00000a10| 62 2b 32 34 29 3d 64 61 | 74 61 24 0d 04 c4 19 c8 |b+24)=da|ta$.....|
|00000a20| 99 43 72 65 61 74 65 49 | 2c 30 2c 62 20 b8 20 69 |.CreateI|,0,b . i|
|00000a30| 63 6f 6e 25 0d 04 ce 0a | 3d 69 63 6f 6e 25 0d 04 |con%....|=icon%..|
|00000a40| d8 04 0d 04 e2 2b dd f2 | 73 79 73 5f 63 72 65 61 |.....+..|sys_crea|
|00000a50| 74 65 64 69 61 6c 6f 67 | 75 65 28 73 75 66 66 69 |tedialog|ue(suffi|
|00000a60| 78 24 2c 77 61 57 25 2c | 77 61 48 25 29 0d 04 ec |x$,waW%,|waH%)...|
|00000a70| 0e ea 77 61 4c 25 2c 77 | 61 54 25 0d 04 f6 16 64 |..waL%,w|aT%....d|
|00000a80| 69 61 6c 6f 67 75 65 63 | 72 65 61 74 65 64 25 3d |ialoguec|reated%=|
|00000a90| b9 0d 05 00 15 c8 97 20 | 77 61 4c 25 2c 77 61 54 |....... |waL%,waT|
|00000aa0| 25 2c 76 6f 69 64 0d 05 | 0a 14 e7 64 69 61 6c 6f |%,void..|...dialo|
|00000ab0| 67 75 65 25 3c 3e 2d 31 | 20 8c 0d 05 14 37 f2 67 |gue%<>-1| ....7.g|
|00000ac0| 65 74 77 28 64 69 61 6c | 6f 67 75 65 25 29 3a 20 |etw(dial|ogue%): |
|00000ad0| e7 62 21 33 32 20 80 26 | 31 30 30 30 30 20 77 61 |.b!32 .&|10000 wa|
|00000ae0| 4c 25 3d 62 21 34 3a 20 | 77 61 54 25 3d 62 21 31 |L%=b!4: |waT%=b!1|
|00000af0| 36 0d 05 1e 16 f2 64 65 | 6c 65 74 65 28 64 69 61 |6.....de|lete(dia|
|00000b00| 6c 6f 67 75 65 25 29 0d | 05 28 05 cd 0d 05 32 25 |logue%).|.(....2%|
|00000b10| e7 28 77 61 4c 25 2b 77 | 61 57 25 29 3e 3d 31 32 |.(waL%+w|aW%)>=12|
|00000b20| 37 38 20 77 61 4c 25 3d | 31 32 37 38 2d 77 61 57 |78 waL%=|1278-waW|
|00000b30| 25 0d 05 3c 24 e7 28 77 | 61 54 25 2d 77 61 48 25 |%..<$.(w|aT%-waH%|
|00000b40| 29 3c 3d 31 30 30 20 20 | 77 61 54 25 3d 31 30 30 |)<=100  |waT%=100|
|00000b50| 2b 77 61 48 25 0d 05 46 | 55 64 69 61 6c 6f 67 75 |+waH%..F|Udialogu|
|00000b60| 65 25 3d a4 73 79 73 5f | 64 65 66 69 6e 65 77 69 |e%=.sys_|definewi|
|00000b70| 6e 64 6f 77 28 22 22 2c | 26 35 30 2c 37 2c 30 2c |ndow("",|&50,7,0,|
|00000b80| 20 77 61 57 25 2c 77 61 | 48 25 2c 20 77 61 4c 25 | waW%,wa|H%, waL%|
|00000b90| 2c 77 61 54 25 2d 77 61 | 48 25 2c 77 61 4c 25 2b |,waT%-wa|H%,waL%+|
|00000ba0| 77 61 57 25 2c 77 61 54 | 25 29 0d 05 50 1a 63 6c |waW%,waT|%)..P.cl|
|00000bb0| 61 69 6d 64 69 61 6c 6f | 67 75 65 24 3d 73 75 66 |aimdialo|gue$=suf|
|00000bc0| 66 69 78 24 0d 05 5a 05 | e1 0d 05 64 04 0d 05 6e |fix$..Z.|...d...n|
|00000bd0| 16 dd f2 73 79 73 5f 6f | 70 65 6e 64 69 61 6c 6f |...sys_o|pendialo|
|00000be0| 67 75 65 0d 05 78 14 f2 | 67 65 74 77 28 64 69 61 |gue..x..|getw(dia|
|00000bf0| 6c 6f 67 75 65 25 29 0d | 05 82 23 c8 97 20 c8 93 |logue%).|..#.. ..|
|00000c00| 20 62 21 34 2c 62 21 38 | 2c 62 21 31 32 2d 62 21 | b!4,b!8|,b!12-b!|
|00000c10| 34 2c 62 21 31 36 2d 62 | 21 38 0d 05 8c 15 f2 66 |4,b!16-b|!8.....f|
|00000c20| 72 6f 6e 74 28 64 69 61 | 6c 6f 67 75 65 25 29 0d |ront(dia|logue%).|
|00000c30| 05 96 05 e1 0d 05 a0 04 | 0d 05 aa 17 dd f2 73 79 |........|......sy|
|00000c40| 73 5f 63 6c 6f 73 65 64 | 69 61 6c 6f 67 75 65 0d |s_closed|ialogue.|
|00000c50| 05 b4 17 c8 97 20 c8 93 | 20 30 2c 30 2c 31 32 37 |..... ..| 0,0,127|
|00000c60| 39 2c 31 30 32 33 0d 05 | be 1c f2 63 6c 6f 73 65 |9,1023..|...close|
|00000c70| 5f 77 69 6e 64 6f 77 28 | 64 69 61 6c 6f 67 75 65 |_window(|dialogue|
|00000c80| 25 29 0d 05 c8 15 63 6c | 61 69 6d 64 69 61 6c 6f |%)....cl|aimdialo|
|00000c90| 67 75 65 24 3d 22 22 0d | 05 d2 05 e1 0d 05 dc 04 |gue$="".|........|
|00000ca0| 0d 05 e6 16 dd 20 f2 64 | 65 6c 65 74 65 28 68 61 |..... .d|elete(ha|
|00000cb0| 6e 64 6c 65 25 29 0d 05 | f0 0e 21 62 3d 68 61 6e |ndle%)..|..!b=han|
|00000cc0| 64 6c 65 25 0d 05 fa 11 | c8 99 44 65 6c 65 74 65 |dle%....|..Delete|
|00000cd0| 57 2c 30 2c 62 0d 06 04 | 05 e1 0d 06 0e 04 0d 06 |W,0,b...|........|
|00000ce0| 18 1c dd 20 f2 63 6c 6f | 73 65 5f 77 69 6e 64 6f |... .clo|se_windo|
|00000cf0| 77 28 68 61 6e 64 6c 65 | 25 29 0d 06 22 0e 21 62 |w(handle|%)..".!b|
|00000d00| 3d 68 61 6e 64 6c 65 25 | 0d 06 2c 10 c8 99 43 6c |=handle%|..,...Cl|
|00000d10| 6f 73 65 57 2c 30 2c 62 | 0d 06 36 05 e1 0d 06 40 |oseW,0,b|..6....@|
|00000d20| 04 0d 06 4a 41 dd 20 f2 | 73 79 73 5f 6f 70 65 6e |...JA. .|sys_open|
|00000d30| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 2c 77 |window(h|andle%,w|
|00000d40| 61 4c 25 2c 77 61 42 25 | 2c 77 61 52 25 2c 77 61 |aL%,waB%|,waR%,wa|
|00000d50| 54 25 2c 73 63 58 25 2c | 73 63 59 25 2c 62 65 68 |T%,scX%,|scY%,beh|
|00000d60| 25 29 0d 06 54 0e 21 62 | 3d 68 61 6e 64 6c 65 25 |%)..T.!b|=handle%|
|00000d70| 0d 06 5e 29 62 21 34 3d | 77 61 4c 25 3a 62 21 38 |..^)b!4=|waL%:b!8|
|00000d80| 3d 77 61 42 25 3a 62 21 | 31 32 3d 77 61 52 25 3a |=waB%:b!|12=waR%:|
|00000d90| 62 21 31 36 3d 77 61 54 | 25 0d 06 68 17 62 21 32 |b!16=waT|%..h.b!2|
|00000da0| 30 3d 73 63 58 25 3a 62 | 21 32 34 3d 73 63 59 25 |0=scX%:b|!24=scY%|
|00000db0| 0d 06 72 0d 62 21 32 38 | 3d 62 65 68 25 0d 06 7c |..r.b!28|=beh%..||
|00000dc0| 10 c8 99 20 4f 70 65 6e | 57 2c 30 2c 62 0d 06 86 |... Open|W,0,b...|
|00000dd0| 05 e1 0d 06 90 04 0d 06 | 9a 3b dd f2 73 79 73 5f |........|.;..sys_|
|00000de0| 77 61 72 6e 69 6e 67 62 | 6f 78 28 73 75 66 66 69 |warningb|ox(suffi|
|00000df0| 78 24 2c 74 65 78 74 30 | 24 2c 74 65 78 74 31 24 |x$,text0|$,text1$|
|00000e00| 2c 74 65 78 74 32 24 2c | 62 75 74 74 6f 6e 73 24 |,text2$,|buttons$|
|00000e10| 29 0d 06 a4 1d ea 62 6f | 78 57 25 2c 62 6f 78 48 |).....bo|xW%,boxH|
|00000e20| 25 2c 62 6f 64 67 65 68 | 65 69 67 68 74 25 0d 06 |%,bodgeh|eight%..|
|00000e30| ae 23 ea 62 75 74 4c 25 | 2c 62 75 74 42 25 2c 62 |.#.butL%|,butB%,b|
|00000e40| 75 74 52 25 2c 62 75 74 | 54 25 2c 20 62 75 74 57 |utR%,but|T%, butW|
|00000e50| 25 0d 06 b8 09 ea 70 74 | 72 25 0d 06 c2 0a c8 8e |%.....pt|r%......|
|00000e60| 20 eb 20 ca 0d 06 cc 07 | c9 31 32 0d 06 d6 14 62 | . .....|.12....b|
|00000e70| 6f 64 67 65 68 65 69 67 | 68 74 25 3d 31 39 32 0d |odgeheig|ht%=192.|
|00000e80| 06 e0 0a c9 32 32 2c 32 | 30 0d 06 ea 16 62 6f 64 |....22,2|0....bod|
|00000e90| 67 65 68 65 69 67 68 74 | 25 3d 31 39 32 2f 32 0d |geheight|%=192/2.|
|00000ea0| 06 f4 05 cb 0d 06 fe 11 | 62 6f 78 57 25 3d a9 74 |........|boxW%=.t|
|00000eb0| 65 78 74 30 24 0d 07 08 | 20 e7 62 6f 78 57 25 3c |ext0$...| .boxW%<|
|00000ec0| a9 74 65 78 74 31 24 20 | 62 6f 78 57 25 3d a9 74 |.text1$ |boxW%=.t|
|00000ed0| 65 78 74 31 24 0d 07 12 | 20 e7 62 6f 78 57 25 3c |ext1$...| .boxW%<|
|00000ee0| a9 74 65 78 74 32 24 20 | 62 6f 78 57 25 3d a9 74 |.text2$ |boxW%=.t|
|00000ef0| 65 78 74 32 24 0d 07 1c | 18 62 6f 78 57 25 3d 28 |ext2$...|.boxW%=(|
|00000f00| 34 2b 62 6f 78 57 25 29 | 2a 63 68 58 25 0d 07 26 |4+boxW%)|*chX%..&|
|00000f10| 39 62 6f 78 48 25 3d 63 | 68 59 25 2a 28 35 2d 28 |9boxH%=c|hY%*(5-(|
|00000f20| 74 65 78 74 31 24 3c 3e | 22 22 29 2d 28 74 65 78 |text1$<>|"")-(tex|
|00000f30| 74 32 24 3c 3e 22 22 29 | 29 2b 62 6f 64 67 65 68 |t2$<>"")|)+bodgeh|
|00000f40| 65 69 67 68 74 25 0d 07 | 30 3a 62 75 74 57 25 3d |eight%..|0:butW%=|
|00000f50| 63 68 58 25 2a 35 3a 20 | 62 75 74 42 25 3d 63 68 |chX%*5: |butB%=ch|
|00000f60| 59 25 81 32 2d 62 6f 78 | 48 25 3a 20 62 75 74 54 |Y%.2-box|H%: butT|
|00000f70| 25 3d 62 75 74 42 25 2b | 63 68 59 25 2a 31 2e 35 |%=butB%+|chY%*1.5|
|00000f80| 0d 07 3a 2e 62 75 74 4c | 25 3d 28 62 6f 78 57 25 |..:.butL|%=(boxW%|
|00000f90| 2d 32 2a 62 75 74 57 25 | 29 2f 33 3a 20 62 75 74 |-2*butW%|)/3: but|
|00000fa0| 52 25 3d 62 6f 78 57 25 | 2d 62 75 74 4c 25 0d 07 |R%=boxW%|-butL%..|
|00000fb0| 44 2b e7 c0 62 75 74 74 | 6f 6e 73 24 2c 31 29 3d |D+..butt|ons$,1)=|
|00000fc0| 22 2d 22 20 84 c1 62 75 | 74 74 6f 6e 73 24 2c 32 |"-" ..bu|ttons$,2|
|00000fd0| 2c 31 29 3d 22 2d 22 20 | 8c 0d 07 4e 2c 62 75 74 |,1)="-" |...N,but|
|00000fe0| 4c 25 3d 28 62 6f 78 57 | 25 2d 62 75 74 57 25 29 |L%=(boxW|%-butW%)|
|00000ff0| 2f 32 3a 20 62 75 74 52 | 25 3d 62 75 74 4c 25 2b |/2: butR|%=butL%+|
|00001000| 62 75 74 57 25 0d 07 58 | 05 cd 0d 07 62 2c f2 73 |butW%..X|....b,.s|
|00001010| 79 73 5f 63 72 65 61 74 | 65 64 69 61 6c 6f 67 75 |ys_creat|edialogu|
|00001020| 65 28 73 75 66 66 69 78 | 24 2c 62 6f 78 57 25 2c |e(suffix|$,boxW%,|
|00001030| 62 6f 78 48 25 29 0d 07 | 6c 57 e7 c0 62 75 74 74 |boxH%)..|lW..butt|
|00001040| 6f 6e 73 24 2c 31 29 3d | 22 6f 22 20 6f 6b 25 3d |ons$,1)=|"o" ok%=|
|00001050| a4 73 79 73 5f 64 65 66 | 69 6e 65 69 63 6f 6e 28 |.sys_def|ineicon(|
|00001060| 62 75 74 4c 25 2c 62 75 | 74 42 25 2c 62 75 74 4c |butL%,bu|tB%,butL|
|00001070| 25 2b 62 75 74 57 25 2c | 62 75 74 54 25 2c 26 34 |%+butW%,|butT%,&4|
|00001080| 30 32 44 2c 37 2c 32 2c | 22 4f 4b 22 29 0d 07 76 |02D,7,2,|"OK")..v|
|00001090| 59 e7 c0 62 75 74 74 6f | 6e 73 24 2c 31 29 3d 22 |Y..butto|ns$,1)="|
|000010a0| 79 22 20 79 65 73 25 3d | a4 73 79 73 5f 64 65 66 |y" yes%=|.sys_def|
|000010b0| 69 6e 65 69 63 6f 6e 28 | 62 75 74 4c 25 2c 62 75 |ineicon(|butL%,bu|
|000010c0| 74 42 25 2c 62 75 74 4c | 25 2b 62 75 74 57 25 2c |tB%,butL|%+butW%,|
|000010d0| 62 75 74 54 25 2c 26 34 | 30 32 44 2c 37 2c 32 2c |butT%,&4|02D,7,2,|
|000010e0| 22 59 65 73 22 29 0d 07 | 80 59 e7 c1 62 75 74 74 |"Yes")..|.Y..butt|
|000010f0| 6f 6e 73 24 2c 32 2c 31 | 29 3d 22 6e 22 20 6e 6f |ons$,2,1|)="n" no|
|00001100| 25 3d a4 73 79 73 5f 64 | 65 66 69 6e 65 69 63 6f |%=.sys_d|efineico|
|00001110| 6e 28 62 75 74 52 25 2d | 62 75 74 57 25 2c 62 75 |n(butR%-|butW%,bu|
|00001120| 74 42 25 2c 62 75 74 52 | 25 2c 62 75 74 54 25 2c |tB%,butR|%,butT%,|
|00001130| 26 34 30 32 44 2c 37 2c | 32 2c 22 4e 6f 22 29 0d |&402D,7,|2,"No").|
|00001140| 07 8a 5d e7 c1 62 75 74 | 74 6f 6e 73 24 2c 32 2c |..]..but|tons$,2,|
|00001150| 31 29 3d 22 71 22 20 71 | 75 69 74 25 3d a4 73 79 |1)="q" q|uit%=.sy|
|00001160| 73 5f 64 65 66 69 6e 65 | 69 63 6f 6e 28 62 75 74 |s_define|icon(but|
|00001170| 52 25 2d 62 75 74 57 25 | 2c 62 75 74 42 25 2c 62 |R%-butW%|,butB%,b|
|00001180| 75 74 52 25 2c 62 75 74 | 54 25 2c 26 34 30 32 44 |utR%,but|T%,&402D|
|00001190| 2c 37 2c 32 2c 22 51 75 | 69 74 22 29 0d 07 94 3e |,7,2,"Qu|it")...>|
|000011a0| f2 73 79 73 5f 64 65 66 | 69 6e 65 69 63 6f 6e 28 |.sys_def|ineicon(|
|000011b0| 30 2c 2d 62 6f 64 67 65 | 68 65 69 67 68 74 25 2c |0,-bodge|height%,|
|000011c0| 62 6f 78 57 25 2c 30 2c | 26 31 41 2c 37 2c 32 2c |boxW%,0,|&1A,7,2,|
|000011d0| 22 77 61 72 6e 69 6e 67 | 22 29 0d 07 9e 11 e7 74 |"warning|").....t|
|000011e0| 65 78 74 30 24 3c 3e 22 | 22 20 8c 0d 07 a8 1e 70 |ext0$<>"|" .....p|
|000011f0| 74 72 25 3d 73 79 73 5f | 62 32 25 3a 20 24 70 74 |tr%=sys_|b2%: $pt|
|00001200| 72 25 3d 74 65 78 74 30 | 24 0d 07 b2 59 f2 73 79 |r%=text0|$...Y.sy|
|00001210| 73 5f 64 65 66 69 6e 65 | 69 63 6f 6e 57 28 30 2c |s_define|iconW(0,|
|00001220| 2d 62 6f 64 67 65 68 65 | 69 67 68 74 25 2d 31 2e |-bodgehe|ight%-1.|
|00001230| 35 2a 63 68 59 25 2c 62 | 6f 78 57 25 2c 2d 62 6f |5*chY%,b|oxW%,-bo|
|00001240| 64 67 65 68 65 69 67 68 | 74 25 2c 26 30 31 30 39 |dgeheigh|t%,&0109|
|00001250| 2c 37 2c 32 2c 20 70 74 | 72 25 2c 2d 31 2c 31 30 |,7,2, pt|r%,-1,10|
|00001260| 30 29 0d 07 bc 05 cd 0d | 07 c6 11 e7 74 65 78 74 |0)......|....text|
|00001270| 31 24 3c 3e 22 22 20 8c | 0d 07 d0 20 70 74 72 25 |1$<>"" .|... ptr%|
|00001280| 2b 3d 31 2b a9 24 70 74 | 72 25 3a 20 24 70 74 72 |+=1+.$pt|r%: $ptr|
|00001290| 25 3d 74 65 78 74 31 24 | 0d 07 da 60 f2 73 79 73 |%=text1$|...`.sys|
|000012a0| 5f 64 65 66 69 6e 65 69 | 63 6f 6e 57 28 30 2c 2d |_definei|conW(0,-|
|000012b0| 62 6f 64 67 65 68 65 69 | 67 68 74 25 2d 33 2a 63 |bodgehei|ght%-3*c|
|000012c0| 68 59 25 2c 62 6f 78 57 | 25 2c 2d 62 6f 64 67 65 |hY%,boxW|%,-bodge|
|000012d0| 68 65 69 67 68 74 25 2d | 31 2e 35 2a 63 68 59 25 |height%-|1.5*chY%|
|000012e0| 2c 26 30 31 30 39 2c 37 | 2c 32 2c 20 70 74 72 25 |,&0109,7|,2, ptr%|
|000012f0| 2c 2d 31 2c 31 30 30 29 | 0d 07 e4 05 cd 0d 07 ee |,-1,100)|........|
|00001300| 11 e7 74 65 78 74 32 24 | 3c 3e 22 22 20 8c 0d 07 |..text2$|<>"" ...|
|00001310| f8 20 70 74 72 25 2b 3d | 31 2b a9 24 70 74 72 25 |. ptr%+=|1+.$ptr%|
|00001320| 3a 20 24 70 74 72 25 3d | 74 65 78 74 32 24 0d 08 |: $ptr%=|text2$..|
|00001330| 02 60 f2 73 79 73 5f 64 | 65 66 69 6e 65 69 63 6f |.`.sys_d|efineico|
|00001340| 6e 57 28 30 2c 2d 62 6f | 64 67 65 68 65 69 67 68 |nW(0,-bo|dgeheigh|
|00001350| 74 25 2d 34 2e 35 2a 63 | 68 59 25 2c 62 6f 78 57 |t%-4.5*c|hY%,boxW|
|00001360| 25 2c 2d 62 6f 64 67 65 | 68 65 69 67 68 74 25 2d |%,-bodge|height%-|
|00001370| 33 2a 63 68 59 25 2c 26 | 30 31 30 39 2c 37 2c 32 |3*chY%,&|0109,7,2|
|00001380| 2c 20 70 74 72 25 2c 2d | 31 2c 31 30 30 29 0d 08 |, ptr%,-|1,100)..|
|00001390| 0c 05 cd 0d 08 16 15 f2 | 73 79 73 5f 6f 70 65 6e |........|sys_open|
|000013a0| 64 69 61 6c 6f 67 75 65 | 0d 08 20 05 e1 0d 08 2a |dialogue|.. ....*|
|000013b0| 04 0d 08 34 30 dd f2 73 | 79 73 5f 79 65 73 6e 6f |...40..s|ys_yesno|
|000013c0| 62 6f 78 28 73 75 66 66 | 69 78 24 2c 74 65 78 74 |box(suff|ix$,text|
|000013d0| 30 24 2c 74 65 78 74 31 | 24 2c 74 65 78 74 32 24 |0$,text1|$,text2$|
|000013e0| 29 0d 08 3e 10 ea 62 6f | 78 57 25 2c 62 6f 78 48 |)..>..bo|xW%,boxH|
|000013f0| 25 0d 08 48 23 ea 62 75 | 74 4c 25 2c 62 75 74 42 |%..H#.bu|tL%,butB|
|00001400| 25 2c 62 75 74 52 25 2c | 62 75 74 54 25 2c 20 62 |%,butR%,|butT%, b|
|00001410| 75 74 57 25 0d 08 52 09 | ea 70 74 72 25 0d 08 5c |utW%..R.|.ptr%..\|
|00001420| 11 62 6f 78 57 25 3d a9 | 74 65 78 74 30 24 0d 08 |.boxW%=.|text0$..|
|00001430| 66 20 e7 62 6f 78 57 25 | 3c a9 74 65 78 74 31 24 |f .boxW%|<.text1$|
|00001440| 20 62 6f 78 57 25 3d a9 | 74 65 78 74 31 24 0d 08 | boxW%=.|text1$..|
|00001450| 70 20 e7 62 6f 78 57 25 | 3c a9 74 65 78 74 32 24 |p .boxW%|<.text2$|
|00001460| 20 62 6f 78 57 25 3d a9 | 74 65 78 74 32 24 0d 08 | boxW%=.|text2$..|
|00001470| 7a 18 62 6f 78 57 25 3d | 28 34 2b 62 6f 78 57 25 |z.boxW%=|(4+boxW%|
|00001480| 29 2a 63 68 58 25 0d 08 | 84 37 62 6f 78 48 25 3d |)*chX%..|.7boxH%=|
|00001490| 63 68 59 25 81 32 2b 31 | 2e 35 2a 63 68 59 25 2a |chY%.2+1|.5*chY%*|
|000014a0| 28 33 2d 28 74 65 78 74 | 31 24 3c 3e 22 22 29 2d |(3-(text|1$<>"")-|
|000014b0| 28 74 65 78 74 32 24 3c | 3e 22 22 29 29 0d 08 8e |(text2$<|>""))...|
|000014c0| 32 62 75 74 4c 25 3d 63 | 68 58 25 2a 32 3a 20 62 |2butL%=c|hX%*2: b|
|000014d0| 75 74 52 25 3d 62 6f 78 | 57 25 2d 32 2a 63 68 58 |utR%=box|W%-2*chX|
|000014e0| 25 3a 20 62 75 74 57 25 | 3d 63 68 58 25 2a 35 0d |%: butW%|=chX%*5.|
|000014f0| 08 98 2e 62 75 74 4c 25 | 3d 28 62 6f 78 57 25 2d |...butL%|=(boxW%-|
|00001500| 32 2a 62 75 74 57 25 29 | 2f 33 3a 20 62 75 74 52 |2*butW%)|/3: butR|
|00001510| 25 3d 62 6f 78 57 25 2d | 62 75 74 4c 25 0d 08 a2 |%=boxW%-|butL%...|
|00001520| 33 62 75 74 42 25 3d 63 | 68 59 25 81 32 2d 62 6f |3butB%=c|hY%.2-bo|
|00001530| 78 48 25 3a 20 62 75 74 | 54 25 3d 63 68 59 25 2a |xH%: but|T%=chY%*|
|00001540| 31 2e 35 2b 63 68 59 25 | 81 32 2d 62 6f 78 48 25 |1.5+chY%|.2-boxH%|
|00001550| 0d 08 ac 2c f2 73 79 73 | 5f 63 72 65 61 74 65 64 |...,.sys|_created|
|00001560| 69 61 6c 6f 67 75 65 28 | 73 75 66 66 69 78 24 2c |ialogue(|suffix$,|
|00001570| 62 6f 78 57 25 2c 62 6f | 78 48 25 29 0d 08 b6 47 |boxW%,bo|xH%)...G|
|00001580| 79 65 73 25 3d a4 73 79 | 73 5f 64 65 66 69 6e 65 |yes%=.sy|s_define|
|00001590| 69 63 6f 6e 28 62 75 74 | 4c 25 2c 62 75 74 42 25 |icon(but|L%,butB%|
|000015a0| 2c 62 75 74 4c 25 2b 62 | 75 74 57 25 2c 62 75 74 |,butL%+b|utW%,but|
|000015b0| 54 25 2c 26 34 30 32 44 | 2c 37 2c 32 2c 22 59 65 |T%,&402D|,7,2,"Ye|
|000015c0| 73 22 29 0d 08 c0 45 6e | 6f 25 3d a4 73 79 73 5f |s")...En|o%=.sys_|
|000015d0| 64 65 66 69 6e 65 69 63 | 6f 6e 28 62 75 74 52 25 |defineic|on(butR%|
|000015e0| 2d 62 75 74 57 25 2c 62 | 75 74 42 25 2c 62 75 74 |-butW%,b|utB%,but|
|000015f0| 52 25 2c 62 75 74 54 25 | 2c 26 34 30 32 44 2c 37 |R%,butT%|,&402D,7|
|00001600| 2c 32 2c 22 4e 6f 22 29 | 0d 08 ca 11 e7 74 65 78 |,2,"No")|.....tex|
|00001610| 74 30 24 3c 3e 22 22 20 | 8c 0d 08 d4 1e 70 74 72 |t0$<>"" |.....ptr|
|00001620| 25 3d 73 79 73 5f 62 32 | 25 3a 20 24 70 74 72 25 |%=sys_b2|%: $ptr%|
|00001630| 3d 74 65 78 74 30 24 0d | 08 de 47 f2 73 79 73 5f |=text0$.|..G.sys_|
|00001640| 64 65 66 69 6e 65 69 63 | 6f 6e 57 28 32 2a 63 68 |defineic|onW(2*ch|
|00001650| 58 25 2c 2d 32 2a 63 68 | 59 25 2c 62 6f 78 57 25 |X%,-2*ch|Y%,boxW%|
|00001660| 2c 2d 63 68 59 25 2c 26 | 30 31 30 31 2c 37 2c 32 |,-chY%,&|0101,7,2|
|00001670| 2c 20 70 74 72 25 2c 2d | 31 2c 31 30 30 29 0d 08 |, ptr%,-|1,100)..|
|00001680| e8 05 cd 0d 08 f2 11 e7 | 74 65 78 74 31 24 3c 3e |........|text1$<>|
|00001690| 22 22 20 8c 0d 08 fc 20 | 70 74 72 25 2b 3d 31 2b |"" .... |ptr%+=1+|
|000016a0| a9 24 70 74 72 25 3a 20 | 24 70 74 72 25 3d 74 65 |.$ptr%: |$ptr%=te|
|000016b0| 78 74 31 24 0d 09 06 4d | f2 73 79 73 5f 64 65 66 |xt1$...M|.sys_def|
|000016c0| 69 6e 65 69 63 6f 6e 57 | 28 32 2a 63 68 58 25 2c |ineiconW|(2*chX%,|
|000016d0| 2d 33 2e 35 2a 63 68 59 | 25 2c 62 6f 78 57 25 2c |-3.5*chY|%,boxW%,|
|000016e0| 2d 32 2e 35 2a 63 68 59 | 25 2c 26 30 31 30 31 2c |-2.5*chY|%,&0101,|
|000016f0| 37 2c 32 2c 20 70 74 72 | 25 2c 2d 31 2c 31 30 30 |7,2, ptr|%,-1,100|
|00001700| 29 0d 09 10 05 cd 0d 09 | 1a 11 e7 74 65 78 74 32 |).......|...text2|
|00001710| 24 3c 3e 22 22 20 8c 0d | 09 24 20 70 74 72 25 2b |$<>"" ..|.$ ptr%+|
|00001720| 3d 31 2b a9 24 70 74 72 | 25 3a 20 24 70 74 72 25 |=1+.$ptr|%: $ptr%|
|00001730| 3d 74 65 78 74 32 24 0d | 09 2e 49 f2 73 79 73 5f |=text2$.|..I.sys_|
|00001740| 64 65 66 69 6e 65 69 63 | 6f 6e 57 28 32 2a 63 68 |defineic|onW(2*ch|
|00001750| 58 25 2c 2d 35 2a 63 68 | 59 25 2c 62 6f 78 57 25 |X%,-5*ch|Y%,boxW%|
|00001760| 2c 2d 34 2a 63 68 59 25 | 2c 26 30 31 30 31 2c 37 |,-4*chY%|,&0101,7|
|00001770| 2c 32 2c 20 70 74 72 25 | 2c 2d 31 2c 31 30 30 29 |,2, ptr%|,-1,100)|
|00001780| 0d 09 38 05 cd 0d 09 42 | 15 f2 73 79 73 5f 6f 70 |..8....B|..sys_op|
|00001790| 65 6e 64 69 61 6c 6f 67 | 75 65 0d 09 4c 05 e1 0d |endialog|ue..L...|
|000017a0| 09 56 04 0d 09 60 58 dd | f2 73 79 73 5f 64 65 66 |.V...`X.|.sys_def|
|000017b0| 69 6e 65 69 63 6f 6e 57 | 28 62 6f 78 4c 25 2c 62 |ineiconW|(boxL%,b|
|000017c0| 6f 78 42 25 2c 62 6f 78 | 52 25 2c 62 6f 78 54 25 |oxB%,box|R%,boxT%|
|000017d0| 2c 66 6c 61 67 73 25 2c | 66 67 63 6f 6c 25 2c 62 |,flags%,|fgcol%,b|
|000017e0| 67 63 6f 6c 25 2c 64 61 | 74 61 30 25 2c 64 61 74 |gcol%,da|ta0%,dat|
|000017f0| 61 31 25 2c 64 61 74 61 | 32 25 29 0d 09 6a 5d 69 |a1%,data|2%)..j]i|
|00001800| 63 6f 6e 25 3d a4 73 79 | 73 5f 64 65 66 69 6e 65 |con%=.sy|s_define|
|00001810| 69 63 6f 6e 57 28 62 6f | 78 4c 25 2c 62 6f 78 42 |iconW(bo|xL%,boxB|
|00001820| 25 2c 62 6f 78 52 25 2c | 62 6f 78 54 25 2c 66 6c |%,boxR%,|boxT%,fl|
|00001830| 61 67 73 25 2c 66 67 63 | 6f 6c 25 2c 62 67 63 6f |ags%,fgc|ol%,bgco|
|00001840| 6c 25 2c 64 61 74 61 30 | 25 2c 64 61 74 61 31 25 |l%,data0|%,data1%|
|00001850| 2c 64 61 74 61 32 25 29 | 0d 09 74 05 e1 0d 09 7e |,data2%)|..t....~|
|00001860| 04 0d 09 88 58 dd a4 73 | 79 73 5f 64 65 66 69 6e |....X..s|ys_defin|
|00001870| 65 69 63 6f 6e 57 28 62 | 6f 78 4c 25 2c 62 6f 78 |eiconW(b|oxL%,box|
|00001880| 42 25 2c 62 6f 78 52 25 | 2c 62 6f 78 54 25 2c 66 |B%,boxR%|,boxT%,f|
|00001890| 6c 61 67 73 25 2c 66 67 | 63 6f 6c 25 2c 62 67 63 |lags%,fg|col%,bgc|
|000018a0| 6f 6c 25 2c 64 61 74 61 | 30 25 2c 64 61 74 61 31 |ol%,data|0%,data1|
|000018b0| 25 2c 64 61 74 61 32 25 | 29 0d 09 92 0e 21 62 3d |%,data2%|)....!b=|
|000018c0| 68 61 6e 64 6c 65 25 0d | 09 9c 30 62 21 34 3d 62 |handle%.|..0b!4=b|
|000018d0| 6f 78 4c 25 3a 20 62 21 | 38 3d 62 6f 78 42 25 3a |oxL%: b!|8=boxB%:|
|000018e0| 20 62 21 31 32 3d 62 6f | 78 52 25 3a 20 62 21 31 | b!12=bo|xR%: b!1|
|000018f0| 36 3d 62 6f 78 54 25 0d | 09 a6 15 62 21 32 30 3d |6=boxT%.|...b!20=|
|00001900| 66 6c 61 67 73 25 20 84 | 26 31 30 30 0d 09 b0 22 |flags% .|&100..."|
|00001910| 62 3f 32 33 3d 28 66 67 | 63 6f 6c 25 20 80 26 46 |b?23=(fg|col% .&F|
|00001920| 29 2b 28 62 67 63 6f 6c | 25 20 3c 3c 34 29 0d 09 |)+(bgcol|% <<4)..|
|00001930| ba 29 62 21 32 34 3d 64 | 61 74 61 30 25 3a 20 62 |.)b!24=d|ata0%: b|
|00001940| 21 32 38 3d 64 61 74 61 | 31 25 3a 20 62 21 33 32 |!28=data|1%: b!32|
|00001950| 3d 64 61 74 61 32 25 0d | 09 c4 19 c8 99 43 72 65 |=data2%.|.....Cre|
|00001960| 61 74 65 49 2c 30 2c 62 | 20 b8 20 69 63 6f 6e 25 |ateI,0,b| . icon%|
|00001970| 0d 09 ce 0a 3d 69 63 6f | 6e 25 0d 09 d8 04 0d 09 |....=ico|n%......|
|00001980| e2 32 dd f2 73 79 73 5f | 73 65 74 69 63 6f 6e 73 |.2..sys_|seticons|
|00001990| 74 61 74 65 28 68 61 6e | 64 6c 65 25 2c 69 63 6f |tate(han|dle%,ico|
|000019a0| 6e 25 2c 66 6c 61 67 73 | 25 2c 6d 61 73 6b 25 29 |n%,flags|%,mask%)|
|000019b0| 0d 09 ec 0e 21 62 3d 68 | 61 6e 64 6c 65 25 0d 09 |....!b=h|andle%..|
|000019c0| f6 0d 62 21 34 3d 69 63 | 6f 6e 25 0d 0a 00 0e 62 |..b!4=ic|on%....b|
|000019d0| 21 38 3d 66 6c 61 67 73 | 25 0d 0a 0a 0e 62 21 31 |!8=flags|%....b!1|
|000019e0| 32 3d 6d 61 73 6b 25 0d | 0a 14 0e c8 99 53 65 74 |2=mask%.|.....Set|
|000019f0| 49 2c 30 2c 62 0d 0a 1e | 05 e1 0d 0a 28 04 0d 0a |I,0,b...|....(...|
|00001a00| 32 26 dd f2 73 79 73 5f | 67 65 74 69 63 6f 6e 69 |2&..sys_|geticoni|
|00001a10| 6e 66 6f 28 68 25 2c 69 | 25 2c f8 20 66 25 2c f8 |nfo(h%,i|%,. f%,.|
|00001a20| 20 6e 24 29 0d 0a 3c 32 | 21 62 3d 68 25 3a 20 62 | n$)..<2|!b=h%: b|
|00001a30| 21 34 3d 69 25 3a 20 c8 | 99 47 65 74 49 2c 30 2c |!4=i%: .|.GetI,0,|
|00001a40| 62 3a 20 66 25 3d 62 21 | 32 34 3a 20 6e 24 3d 24 |b: f%=b!|24: n$=$|
|00001a50| 28 62 2b 32 38 29 0d 0a | 46 05 e1 0d 0a 50 04 0d |(b+28)..|F....P..|
|00001a60| 0a 5a 55 dd f2 73 79 73 | 5f 67 65 74 63 61 72 65 |.ZU..sys|_getcare|
|00001a70| 74 70 6f 73 69 74 69 6f | 6e 28 f8 20 68 61 6e 64 |tpositio|n(. hand|
|00001a80| 6c 65 25 2c f8 20 69 63 | 6f 6e 25 2c f8 20 78 6f |le%,. ic|on%,. xo|
|00001a90| 66 66 73 25 2c 20 f8 20 | 79 6f 66 66 73 25 2c f8 |ffs%, . |yoffs%,.|
|00001aa0| 20 63 68 65 69 67 68 74 | 25 2c f8 20 63 69 6e 64 | cheight|%,. cind|
|00001ab0| 65 78 25 29 0d 0a 64 13 | c8 99 20 47 65 74 43 61 |ex%)..d.|.. GetCa|
|00001ac0| 72 65 74 2c 30 2c 62 0d | 0a 6e 18 68 61 6e 64 6c |ret,0,b.|.n.handl|
|00001ad0| 65 25 3d 21 62 3a 69 63 | 6f 6e 25 3d 62 21 34 0d |e%=!b:ic|on%=b!4.|
|00001ae0| 0a 78 1a 78 6f 66 66 73 | 25 3d 62 21 38 3a 79 6f |.x.xoffs|%=b!8:yo|
|00001af0| 66 66 73 25 3d 62 21 31 | 32 0d 0a 82 11 63 68 65 |ffs%=b!1|2....che|
|00001b00| 69 67 68 74 25 3d 62 21 | 31 36 0d 0a 8c 10 63 69 |ight%=b!|16....ci|
|00001b10| 6e 64 65 78 25 3d 62 21 | 32 30 0d 0a 96 05 e1 0d |ndex%=b!|20......|
|00001b20| 0a a0 04 0d 0a aa 48 dd | f2 73 79 73 5f 73 65 74 |......H.|.sys_set|
|00001b30| 63 61 72 65 74 70 6f 73 | 69 74 69 6f 6e 28 68 61 |caretpos|ition(ha|
|00001b40| 6e 64 6c 65 25 2c 69 63 | 6f 6e 25 2c 78 6f 66 66 |ndle%,ic|on%,xoff|
|00001b50| 73 25 2c 79 6f 66 66 73 | 25 2c 63 68 65 69 67 68 |s%,yoffs|%,cheigh|
|00001b60| 74 25 2c 63 69 6e 64 65 | 78 25 29 0d 0a b4 18 21 |t%,cinde|x%)....!|
|00001b70| 62 3d 68 61 6e 64 6c 65 | 25 3a 62 21 34 3d 69 63 |b=handle|%:b!4=ic|
|00001b80| 6f 6e 25 0d 0a be 1a 62 | 21 38 3d 78 6f 66 66 73 |on%....b|!8=xoffs|
|00001b90| 25 3a 62 21 31 32 3d 79 | 6f 66 66 73 25 0d 0a c8 |%:b!12=y|offs%...|
|00001ba0| 11 62 21 31 36 3d 63 68 | 65 69 67 68 74 25 0d 0a |.b!16=ch|eight%..|
|00001bb0| d2 10 62 21 32 30 3d 63 | 69 6e 64 65 78 25 0d 0a |..b!20=c|index%..|
|00001bc0| dc 13 c8 99 20 53 65 74 | 43 61 72 65 74 2c 30 2c |.... Set|Caret,0,|
|00001bd0| 62 0d 0a e6 05 e1 0d 0a | f0 04 0d 0a fa 2f dd 20 |b.......|...../. |
|00001be0| f2 73 79 73 5f 64 65 66 | 69 6e 65 74 65 78 74 6d |.sys_def|inetextm|
|00001bf0| 65 6e 75 28 73 75 66 66 | 69 78 24 2c 74 69 74 6c |enu(suff|ix$,titl|
|00001c00| 65 24 2c 74 65 78 74 24 | 29 0d 0b 04 1e ea 70 74 |e$,text$|).....pt|
|00001c10| 72 25 2c 73 68 61 64 65 | 25 2c 74 69 63 6b 25 2c |r%,shade|%,tick%,|
|00001c20| 64 6f 74 74 65 64 25 0d | 0b 0e 18 24 73 79 73 5f |dotted%.|...$sys_|
|00001c30| 62 32 25 3d c0 74 69 74 | 6c 65 24 2c 31 31 29 0d |b2%=.tit|le$,11).|
|00001c40| 0b 18 3a 73 79 73 5f 62 | 32 25 3f 31 32 3d 6d 65 |..:sys_b|2%?12=me|
|00001c50| 6e 75 74 69 74 6c 65 5f | 66 67 63 6f 6c 3a 20 73 |nutitle_|fgcol: s|
|00001c60| 79 73 5f 62 32 25 3f 31 | 33 3d 6d 65 6e 75 74 69 |ys_b2%?1|3=menuti|
|00001c70| 74 6c 65 5f 62 67 63 6f | 6c 0d 0b 22 38 73 79 73 |tle_bgco|l.."8sys|
|00001c80| 5f 62 32 25 3f 31 34 3d | 6d 65 6e 75 77 6f 72 6b |_b2%?14=|menuwork|
|00001c90| 5f 66 67 63 6f 6c 3a 20 | 73 79 73 5f 62 32 25 3f |_fgcol: |sys_b2%?|
|00001ca0| 31 35 3d 6d 65 6e 75 77 | 6f 72 6b 5f 62 67 63 6f |15=menuw|ork_bgco|
|00001cb0| 6c 0d 0b 2c 15 73 79 73 | 5f 62 32 25 21 31 36 3d |l..,.sys|_b2%!16=|
|00001cc0| 31 36 30 2b 33 32 0d 0b | 36 13 73 79 73 5f 62 32 |160+32..|6.sys_b2|
|00001cd0| 25 21 32 30 3d 33 32 2b | 38 0d 0b 40 11 73 79 73 |%!20=32+|8..@.sys|
|00001ce0| 5f 62 32 25 21 32 34 3d | 31 30 0d 0b 4a 1e e7 c2 |_b2%!24=|10..J...|
|00001cf0| 74 65 78 74 24 2c 31 29 | 3c 3e 22 7c 22 20 74 65 |text$,1)|<>"|" te|
|00001d00| 78 74 24 2b 3d 22 7c 22 | 0d 0b 54 13 70 74 72 25 |xt$+="|"|..T.ptr%|
|00001d10| 3d 73 79 73 5f 62 32 25 | 2b 32 38 0d 0b 5e 05 f5 |=sys_b2%|+28..^..|
|00001d20| 0d 0b 68 20 73 68 61 64 | 65 25 3d 30 3a 20 74 69 |..h shad|e%=0: ti|
|00001d30| 63 6b 25 3d 30 3a 20 64 | 6f 74 74 65 64 25 3d 30 |ck%=0: d|otted%=0|
|00001d40| 0d 0b 72 32 e7 c0 74 65 | 78 74 24 2c 31 29 3d 22 |..r2..te|xt$,1)="|
|00001d50| 3c 22 20 73 68 61 64 65 | 25 3d 26 34 30 30 30 30 |<" shade|%=&40000|
|00001d60| 30 3a 20 74 65 78 74 24 | 3d c1 74 65 78 74 24 2c |0: text$|=.text$,|
|00001d70| 32 29 0d 0b 7c 2b e7 c0 | 74 65 78 74 24 2c 31 29 |2)..|+..|text$,1)|
|00001d80| 3d 22 3e 22 20 74 69 63 | 6b 25 3d 31 3a 20 74 65 |=">" tic|k%=1: te|
|00001d90| 78 74 24 3d c1 74 65 78 | 74 24 2c 32 29 0d 0b 86 |xt$=.tex|t$,2)...|
|00001da0| 2d e7 c0 74 65 78 74 24 | 2c 31 29 3d 22 3a 22 20 |-..text$|,1)=":" |
|00001db0| 64 6f 74 74 65 64 25 3d | 32 3a 20 74 65 78 74 24 |dotted%=|2: text$|
|00001dc0| 3d c1 74 65 78 74 24 2c | 32 29 0d 0b 90 29 24 28 |=.text$,|2)...)$(|
|00001dd0| 70 74 72 25 2b 31 32 29 | 3d c0 c0 74 65 78 74 24 |ptr%+12)|=..text$|
|00001de0| 2c a7 74 65 78 74 24 2c | 22 7c 22 29 2d 31 29 2c |,.text$,|"|")-1),|
|00001df0| 31 31 29 0d 0b 9a 1f 74 | 65 78 74 24 3d c1 74 65 |11)....t|ext$=.te|
|00001e00| 78 74 24 2c a7 74 65 78 | 74 24 2c 22 7c 22 29 2b |xt$,.tex|t$,"|")+|
|00001e10| 31 29 0d 0b a4 2c 70 74 | 72 25 21 30 3d 74 69 63 |1)...,pt|r%!0=tic|
|00001e20| 6b 25 20 84 64 6f 74 74 | 65 64 25 20 84 28 26 38 |k% .dott|ed% .(&8|
|00001e30| 30 20 80 28 74 65 78 74 | 24 3d 22 22 29 29 0d 0b |0 .(text|$=""))..|
|00001e40| ae 0d 70 74 72 25 21 34 | 3d 2d 31 0d 0b b8 42 70 |..ptr%!4|=-1...Bp|
|00001e50| 74 72 25 21 38 3d 73 68 | 61 64 65 25 20 84 26 30 |tr%!8=sh|ade% .&0|
|00001e60| 31 30 30 32 31 20 84 6d | 65 6e 75 77 6f 72 6b 5f |10021 .m|enuwork_|
|00001e70| 62 67 63 6f 6c 3c 3c 32 | 38 20 84 6d 65 6e 75 77 |bgcol<<2|8 .menuw|
|00001e80| 6f 72 6b 5f 66 67 63 6f | 6c 3c 3c 32 34 0d 0b c2 |ork_fgco|l<<24...|
|00001e90| 0c 70 74 72 25 2b 3d 32 | 34 0d 0b cc 0d fd 74 65 |.ptr%+=2|4.....te|
|00001ea0| 78 74 24 3d 22 22 0d 0b | d6 27 c8 99 43 72 65 61 |xt$=""..|.'..Crea|
|00001eb0| 74 65 4d 2c 30 2c 73 79 | 73 5f 62 32 25 2c 6d 6f |teM,0,sy|s_b2%,mo|
|00001ec0| 75 73 65 78 25 2c 6d 6f | 75 73 65 79 25 0d 0b e0 |usex%,mo|usey%...|
|00001ed0| 16 63 6c 61 69 6d 6d 65 | 6e 75 24 3d 73 75 66 66 |.claimme|nu$=suff|
|00001ee0| 69 78 24 0d 0b ea 05 e1 | 0d ff                   |ix$.....|..      |
+--------+-------------------------+-------------------------+--------+--------+